www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/admin/user_manager.asp
<!--#include file="mdb.asp"--> <!--#include file="Md5.asp"--> <!--#include file="aq.asp"--> <% if session("adminlogin")<>sessionvar then Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.location.href='index.asp';</script>") Response.End End if dim username,password sql="select password,username from admin" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 username=rs("username") password=rs("password") rs.close set rs=nothing dim currentadmin,action currentadmin=Session("Admin") action=request("action") if action="doit" then if request("pw4")="" then Response.Write"<script language=javascript>alert('请输入原管理员密码!');this.location.href='user_manager.asp';</script>" Response.End end if if request("pw1")="" and request("pw2")="" and request("pw3")=""then Response.Write"<script language=javascript>alert('无任何修改!');this.location.href='user_manager.asp';</script>" Response.End end if if request("pw1")<>request("pw2") then Response.Write"<script language=javascript>alert('两次输入的密码不一样!');this.location.href='user_manager.asp';</script>" Response.End end if dim pw1,pw2,pw3,pw4 pw3=request("pw3") pw1=md5(request("pw1")) pw2=md5(request("pw2")) pw4=md5(request("pw4")) if pw4<>password then Response.Write"<script language=javascript>alert('原密码输入错误!');this.location.href='user_manager.asp';</script>" Response.End end if set r=server.createobject("adodb.recordset") r.open "select password,username from admin",conn,1,3 if not r.eof then if request("pw1")="" and request("pw2")="" then r("username")=pw3 r.update r.close set r=nothing Response.Write"<script language=javascript>alert('管理员帐号已成功更改!');this.location.href='user_manager.asp';</script>" Response.End end if if request("pw3")="" then r("password")=pw1 r.update r.close set r=nothing Response.Write"<script language=javascript>alert('管理员密码已成功更改!');this.location.href='user_manager.asp';</script>" Response.End end if if request("pw1")<>"" and request("pw2")<>"" and request("pw3")<>""then r("password")=pw1 r("username")=pw3 r.update r.close set r=nothing Response.Write"<script language=javascript>alert('管理员帐号和密码已成功更改!');this.location.href='user_manager.asp';</script>" Response.End end if else r.close set r=nothing Response.Write"<script language=javascript>alert('无法完成请求!');this.location.href='user_manager.asp';</script>" Response.End end if end if %> <html> <head> <title>修改管理员帐号/密码</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK REL="stylesheet" HREF="css.css" TYPE="text/css"> </head> <body> <div align="center"> <br><br> <form action="user_manager.asp" method="post"> <table width="80%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999"> <tr> <td bgcolor="#cccccc" align="center" colspan="2">更改当前管理员帐号/密码</td> </tr> <tr> <td bgcolor="#eeeeee" width="100"><br>原管理员帐号:</td> <td bgcolor="#eeeeee"><input type="username" name="0" value=<%=username%> disabled></td></tr> <tr> <td bgcolor="#eeeeee" width="100">新管理员帐号:</td> <td bgcolor="#eeeeee"><input type="username" name="pw3"> <font color="#FF0000">如不修改,请留空</font></td> </tr> <tr> <td bgcolor="#eeeeee">请输入原密码:</td> <td bgcolor="#eeeeee"><input type="password" name="pw4"> <font color="#FF0000">*</font></td> </tr> <tr> <td bgcolor="#eeeeee">请输入新密码:</td> <td bgcolor="#eeeeee"><input type="password" name="pw1"> <font color="#FF0000">如不修改,请留空</font></td> </tr> <tr> <td bgcolor="#eeeeee">请确认新密码:</td> <td bgcolor="#eeeeee"><input type="password" name="pw2"> <font color="#FF0000">如不修改,请留空</font></td> </tr> <tr> <td bgcolor="#eeeeee"></td> <td bgcolor="#eeeeee"><input type="submit"></td></tr> </table> <input type="hidden" value="doit" name="action"> </form> </div> </body> </html>